home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh21a.d64
/
listing 19
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
506b
|
14 lines
10 REM *** PROGRAMM TEILBILDSCHIRM IN BASIC ***
20 INPUT"ECKE LINKS OBEN S1,Z1 =";S1,Z1
30 INPUT"ECKE RECHTS UNTEN S2,Z2 =";S2,Z2
40 INPUT"WAS SOLL HINEIN ";W
50 REM ** STEUERWERTE BERECHNEN: S = BILDSCHIRMSTARTADRESSE
60 REM SD = SPALTENDIFFERENZ
70 REM ZD = ZEILENDIFFERENZ
80 SC = (null)("3FF"):S = SC + 40*(Z1-1) + S1:SD = S2 - S1:ZD = Z2 - Z1
90 REM *** SCHLEIFE ***
100 I=0:Z=0
110 :POKE S+I,W
120 :I=I+1:IF I>SD THEN S=S+40:I=0:Z=Z+1:IF Z>ZD THEN END
130 :GOTO 110